home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 May / chip-cd_2002_05.zip / 05 / Dom i biuro / Mr Faktury Pro 1.53 / mr_faktury_pro.exe / 0 / RCDATA / TFUSTAW_CENY / TFUSTAW_CENY.txt
Text File  |  2002-03-27  |  3KB  |  120 lines
  1. object fUstaw_ceny: TfUstaw_ceny
  2.   Left = 255
  3.   Top = 216
  4.   BorderStyle = bsSingle
  5.   Caption = 'Ustaw ceny'
  6.   ClientHeight = 202
  7.   ClientWidth = 316
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = True
  15.   Position = poScreenCenter
  16.   OnCreate = FormCreate
  17.   OnDblClick = FormDblClick
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object dbg: TDBGrid
  21.     Left = 0
  22.     Top = 0
  23.     Width = 316
  24.     Height = 161
  25.     DataSource = ds
  26.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  27.     TabOrder = 0
  28.     TitleFont.Charset = DEFAULT_CHARSET
  29.     TitleFont.Color = clWindowText
  30.     TitleFont.Height = -11
  31.     TitleFont.Name = 'MS Sans Serif'
  32.     TitleFont.Style = []
  33.     Columns = <
  34.       item
  35.         Expanded = False
  36.         FieldName = 'nazwa'
  37.         Title.Caption = 'nazwa cennika'
  38.         Visible = True
  39.       end
  40.       item
  41.         Expanded = False
  42.         FieldName = 'cena'
  43.         Title.Caption = 'cena netto'
  44.         Visible = True
  45.       end
  46.       item
  47.         Expanded = False
  48.         FieldName = 'cenab'
  49.         Title.Caption = 'cena brutto'
  50.         Visible = True
  51.       end
  52.       item
  53.         Expanded = False
  54.         FieldName = 'nwaluta'
  55.         Title.Caption = 'typ'
  56.         Visible = True
  57.       end>
  58.   end
  59.   object bWyjdz: TButton
  60.     Left = 232
  61.     Top = 168
  62.     Width = 75
  63.     Height = 25
  64.     Caption = '&Wyjd'#378
  65.     TabOrder = 1
  66.     OnClick = bWyjdzClick
  67.   end
  68.   object bUstaw: TButton
  69.     Left = 16
  70.     Top = 168
  71.     Width = 73
  72.     Height = 25
  73.     Caption = '&Ustaw '
  74.     TabOrder = 2
  75.     OnClick = bUstawClick
  76.   end
  77.   object ds: TDataSource
  78.     DataSet = tCennik
  79.     Left = 80
  80.     Top = 48
  81.   end
  82.   object tCennik: TffTable
  83.     DatabaseName = 'mr_sklep'
  84.     FieldDefs = <>
  85.     SessionName = '[automatic]'
  86.     TableName = 'cennik'
  87.     Timeout = 10000
  88.     OnCalcFields = tCennikCalcFields
  89.     Left = 120
  90.     Top = 48
  91.     object tCenniknumer: TAutoIncField
  92.       FieldName = 'numer'
  93.     end
  94.     object tCenniknazwa: TStringField
  95.       FieldName = 'nazwa'
  96.       Required = True
  97.     end
  98.     object tCennikwaluta: TWordField
  99.       FieldName = 'waluta'
  100.       Required = True
  101.     end
  102.     object tCennikcena: TCurrencyField
  103.       FieldKind = fkCalculated
  104.       FieldName = 'cena'
  105.       Calculated = True
  106.     end
  107.     object tCenniknwaluta: TStringField
  108.       FieldKind = fkCalculated
  109.       FieldName = 'nwaluta'
  110.       Size = 4
  111.       Calculated = True
  112.     end
  113.     object tCennikcenab: TCurrencyField
  114.       FieldKind = fkCalculated
  115.       FieldName = 'cenab'
  116.       Calculated = True
  117.     end
  118.   end
  119. end
  120.